Option Explicit
Sub N_Sample028()
    Dim myObj As Object
    On Error Resume Next
    Set myObj = Worksheets(Int(Rnd * 5))
    On Error GoTo 0
    If myObj Is Nothing Then
        MsgBox "bmyObjSxs۪C"
    Else
        MsgBox "xsmyObj" & TypeName(myObj) & "C"
    End If
    Set myObj = Nothing					'
End Sub
